home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 February / PCWorld_2007-02_cd.bin / domacnost a kancelar / avedesk / AveDesk13.exe / Tools / ShowHide.vbs < prev   
Text File  |  2005-02-20  |  724b  |  25 lines
  1. '------------------------------------------------------------------------------
  2. '    Hide/Show Selected
  3. '    Sample tool for AveDesk 1.2.
  4. '    (c) Andreas Verhoeven 2005
  5. '------------------------------------------------------------------------------
  6.  
  7. Dim aveDesk 'as AveDesk.Application
  8. set aveDesk = CreateObject("AveDesk.Application")
  9.  
  10. if Not AveDesk is Nothing then
  11.     Dim objArgs 'as WScript.Arguments
  12.     Set objArgs = WScript.Arguments
  13.  
  14.     Dim i 'as Integer
  15.     For i = 0 to objArgs.Count - 1
  16.         Dim desklet 'as AveDesk.Desklet
  17.         set desklet = aveDesk.RunningDesklets.Item ( objArgs.Item(i) )
  18.         if Not desklet is Nothing then
  19.             desklet.Visible = Not desklet.Visible
  20.         end if
  21.         set desklet = nothing
  22.     Next
  23.  
  24. end if
  25.